# PURPOSE:
# this file loads the data used in many of the plots


# 'dyads_df' OBJECT DATA CREATED IN '1-clean-the-data/SC-1- Dyadic Data.R'
dyads_df <- read_rds("../Data/Derived/dyads_df.rds")
attr(dyads_df, "source")



# SOURCE (source_from): INNOVATIVE (new)
# FOCAL (source_to):    FULL TEXT

# 'new_to_full_df' OBJECT CREATED IN
# '1-clean-the-data/SC-4- Measure Similarities.R'
df_new <- read_rds("../Data/Derived/new_to_full_df.rds")   %>%
  left_join(dyads_df)  %>%
  # FOCUS ON RELEVANT YEARS
  filter(date_to > date_from) %>%
  # POST-1776
  filter(year_to >= 1776)

